global direction,sDoorOpen,eDoorOpen,ladderHole,chase,blasting
if direction = "south" then
if sDoorOpen then
go to card id 33443
exit move
else
beep
put "The door is locked!" into field 3
exit move
end if
end if
if direction = "east" then
if eDoorOpen then
if ladderHole then
go to card id 30264
exit move
else
go to card id 6984
exit move
end if
else
beep
put "The door is locked!" into field 3
exit move
end if
end if
pass move
end move
on closeCard
set the cursor to 4
put "" into field 3
end closeCard
on take
global object,carried
-- remember to update carried if you do not pass take
pass take
end take
on drop
global object,dropRoom,carried
-- remember to update carried if you do not pass drop
pass drop
end drop
on use
global object,carried,sDoorOpen,eDoorOpen
put last word of object into obj
delete first char of obj
delete last char of obj
if obj="key" then
put "Both doors are now unlocked and you may pass through." into field 3
put true into sDoorOpen
put true into eDoorOpen
exit use
end if
-- update carried if use results in loss of object
pass use
end use
-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=94 top=232 right=268 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp
-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=94 top=197 right=233 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp
-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=27 top=206 right=242 bottom=61
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp
-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=72 top=111 right=147 bottom=106
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp
-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=128 top=132 right=168 bottom=162
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp
-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=149 top=182 right=218 bottom=183
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=27 top=93 right=148 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID
if examFlag then
put "a tunnel leading east" into field 3
put false into examFlag
else
put "east" into direction
send move to card id cardID
end if
end mouseUp
-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=154 top=59 right=101 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID,sDoorOpen,demonDead,takeFlag
if examFlag then
put "A barred door leading south into the great chamber." into field 3
if sDoorOpen
then put " The door is unlocked!" after field 3
else put " The door is locked!" after field 3
put false into examFlag
else
if takeFlag then
put "You can't take the door." into field 3
put false into takeFlag
else
put "south" into direction
send move to card id cardID
end if
end if
end mouseUp
-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=185 top=172 right=218 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,takeFlag,direction,cardID
if takeFlag then
put "Yeech! You don't want demon slime on a granite block. It's not even tasty stuff." into field 3
put false into takeFlag
exit mouseUp
end if
put "Demon slime on a granite block. Pretty disgusting." into field 3
put false into examFlag
end mouseUp
-- part contents for background part 25
----- text -----
Treasure Room
(looking south)
-- part contents for background part 24
----- text -----
You are in the treasure room. Exits are south and east: Both doorways have doors made of massive iron bars. There is a patch of black demon slime here.